home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / tphers01.zip / HER2HFN.PL < prev    next >
Text File  |  1991-09-08  |  552b  |  20 lines
  1. ##############################################################################
  2. #  Preprocessor which filters the Hershey OC files for use with the TPHersh 
  3. #  unit.
  4. #
  5. #  Basically, all this program does is to filter out all embedded newlines 
  6. #  in the definition of a Hershey glyph.
  7. ##############################################################################
  8. while(<>) {
  9.   if (/(.....)(...)/) {
  10.     $a1=$1;
  11.     $a2=$2;
  12.     if (($a1=~ /^\s*\d+$/) && ($a2=~ /^\s*\d+$/) && ($. > 1) )
  13.       { print "\n"; }
  14.   }
  15.   chop;
  16.   print;
  17. }
  18.  
  19.  
  20.